Imports CapaDeDatos
Public Class nDetalleRemitoCompra
    Public Detalle As CapaDeDatos.dDetalleRemitoCompra = New CapaDeDatos.dDetalleRemitoCompra
    Public Concepto As CapaDeDatos.dConcepto = New CapaDeDatos.dConcepto
    Public Imputacion As CapaDeDatos.dImputacion = New CapaDeDatos.dImputacion
    Public Function InsertarDetalle(ByVal Fecha As String, ByVal Cantidad As Integer, ByVal CodigoConcepto As Integer, ByVal CodigoRemito As Integer) As Boolean
        Return Detalle.Insertar(Fecha, Cantidad, CodigoConcepto, CodigoRemito)
    End Function
    Public Function ListarDetalle(ByVal CodigoDetRemitoC As Integer, ByVal Fecha As String, ByVal Cantidad As Integer, ByVal CodigoConcepto As Integer, ByVal CodigoRemito As Integer) As DataSet
        Return Detalle.BuscarFiltrado(CodigoDetRemitoC, Fecha, Cantidad, CodigoConcepto, CodigoRemito)
    End Function
    Public Function ListarTodo(ByVal CodigoDetRemitoC As Integer, ByVal Fecha As String, ByVal Cantidad As Integer, ByVal CodigoConcepto As Integer, ByVal CodigoRemito As Integer) As DataSet
        Dim dtsPrincipal As DataSet
        dtsPrincipal = Detalle.BuscarFiltrado(CodigoDetRemitoC, Fecha, Cantidad, CodigoConcepto, CodigoRemito)
        dtsPrincipal.Tables(0).Columns.Add("Descripcion")
        dtsPrincipal.Tables(0).Columns.Add("PrecioU")
        dtsPrincipal.Tables(0).Columns.Add("DescripcionImp")
        dtsPrincipal.Tables(0).Columns.Add("CodigoImputacion")

        Dim i As Integer
        For i = 0 To dtsPrincipal.Tables(0).Rows.Count - 1
            Try
                dtsPrincipal.Tables(0).Rows(i)("Descripcion") = Concepto.ListarConceptos(Int(dtsPrincipal.Tables(0).Rows(i)("CodigoConcepto").ToString()), "", "", 0, "").Tables(0).Rows(0)("Descripcion")
            Catch ex As Exception
                dtsPrincipal.Tables(0).Rows(i)("Descripcion") = "Error,Imputacion Nombre no Encontrada"
            End Try
            dtsPrincipal.Tables(0).Rows(i)("PrecioU") = 0
            dtsPrincipal.Tables(0).Rows(i)("CodigoImputacion") = Concepto.PasarImputacion(dtsPrincipal.Tables(0).Rows(i)("CodigoConcepto").ToString())
            Try
                dtsPrincipal.Tables(0).Rows(i)("DescripcionImp") = Imputacion.MostrarDescripcion(Int(dtsPrincipal.Tables(0).Rows(i)("CodigoImputacion").ToString()))
            Catch ex As Exception
                dtsPrincipal.Tables(0).Rows(i)("DescripcionImp") = "Error,Imputacion Nombre no Encontrada"
            End Try

        Next
        Return dtsPrincipal
    End Function
    Public Function EliminarDetalle(ByVal CodigoRemito As Integer) As Boolean
        Return Detalle.Eliminar(CodigoRemito)
    End Function
    Public Function ModificarDetalle(ByVal codigoDetRemitoC As Integer, ByVal Fecha As String, _
                ByVal Cantidad As Integer, ByVal CodigoConcepto As Integer, ByVal CodigoRemito As Integer) As Boolean
        Return Detalle.Modificar(codigoDetRemitoC, Fecha, Cantidad, CodigoConcepto, CodigoRemito)
    End Function
End Class
